;caixilharia de vidro fixo
;cantoneiras de abas iguais, vidro e bite

(defun c:janela ()
	(setq pontos (getvar "osmode"))
	(setq pontos3d (getvar "3dosmode"))

;desliga o 3dsnap	
	(setvar "3dosmode" 0)
	
;deixa ativado o snap para "endpoint"	
	(setvar "osmode" 1)
	
;obtenção de pontos coordenadores
	(setq p1 (getpoint "\n Qual é o ponto de inserção?"))
	(setq p2 (getpoint "\n Qual é o ponto da largura do vão?"))
	(setq p3 (getpoint "\n Qual é o ponto da altura do vão?"))
	(setq p4 (getpoint "\n Qual é a espessura da parede?"))
	(setvar "osmode" 0)

;define aro de cantoneiras	
	(Command "pline" (setq pa1 (polar p1 (angle p1 p4) 0.1))
					 (setq pa2 (polar pa1 (angle p1 p2) 0.03))
					 (setq pa3 (polar pa2 (+(angle p1 p2)(dtr 270)) 0.003))
					 (setq pa4 (polar pa3 (angle p2 p1) 0.027))
					 (setq pa5 (polar pa4 (angle p4 p1) 0.027))
					 (setq pa6 (polar pa5 (angle p2 p1) 0.003))
					     "c"
					     )
	(setq perfil (entlast))
		(command "3dPoly" pa1
						 (list (car pa1) (cadr pa1) (caddr p3))
					     (list (car p2) (cadr pa1) (caddr p3)) 
					     (list (car p2) (cadr pa1) (caddr p2))
						 "C"
						 )
		(command "extrude" perfil "" "p" (entlast))
;define o vidro		
		(command "pline"  pa4 
					     (setq pa8 (polar pa4 (angle p4 p1) 0.01))
					     (setq pa9 (polar pa8 (angle p1 p2) (- (distance p1 p2) 0.006)))
						 (setq pa10 (polar pa9 (+(angle p1 p2)(dtr 90)) 0.01))
						 (setq pa11 (polar pa10 (angle p2 p1)(- (distance p1 p2) 0.006)))
					     "c"
					     )
	(setq vidro (entlast)) 
	
	(command "_move" (entlast) "" "@" "@0,0,0.003")
		
	    (Command "extrude" (entlast) "" (-(distance p1 p3)0.006))
		
;define o bite		
		(Command "pline" pa8
		                 
		                (setq pa12 (polar pa8 (angle p4 p1) 0.01))
					    (setq pa13 (polar pa12 (angle p1 p2) 0.01))
					    (setq pa14 (polar pa13 (angle p1 p4) 0.01))
					    (setq pa15 (polar pa14 (angle p2 p1) 0.01))
					     "c"
					     )
   (setq perfil_bite (entlast))
	
        (command "3dpoly" pa8
					(list (car pa8) (cadr pa8) (- (caddr p3) 0.003))
					(list (car pa9) (cadr pa9) (- (caddr p3) 0.003))
				    (list (car pa9) (cadr pa9) (caddr pa9))
					"c"
					)
	(setq caminho_bite (entlast))
	(command "extrude" perfil_bite  "" "path" caminho_bite)	

             (command "_move" (entlast) "" "@" "@0,0,0.003")		
)

; permite a orientação polar através do uso de graus de um círculo trigonométrico
(defun DtR(d)
(* pi (/ d 180.0))
)